home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b6.d64
/
match'r.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
137b
|
6 lines
9000 FUNC MATCH'R(REF S$,M$) CLOSED
9010 L:=LEN(S$)
9020 IF M$=S$(L-LEN(M$)+1:L) THEN RETURN TRUE
9030 RETURN FALSE
9040 ENDFUNC MATCH'R